home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / slides / parabelum / dominion2.dms / dominion2.adf / FINAL / FINAL.amosSourceCode
AMOS Source Code  |  1990-08-24  |  318b  |  14 lines
  1. Cls 0 : Hide 
  2. A=0 : B=1
  3. Def Scroll 2,0,0 To 320,256,0,-1
  4. Load Iff "df1:final1.iff",1
  5. Load Iff "df1:final2.iff",2
  6. Load Iff "df1:final3.iff",3
  7. Screen Open 4,320,256,32,Lowres
  8. Cls 0 : Hide : Flash Off : Get Palette 1
  9. Do 
  10. A=A+1 : If A=256 Then A=0 : B=B+1
  11. If B>3 Then B=0
  12. Screen Copy B,0,A,320,A+1 To 4,0,255
  13. Scroll 2
  14. Loop